home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-10-28 | 2.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 33 | 3a 34 37 3a 30 37 20 31 |an 14 03|:47:07 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 62 79 74 65 2d 72 |19.0/lis|p/byte-r|
|00000070| 75 6e 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |un.el.;;|; emacs |
|00000080| 76 65 72 73 69 6f 6e 20 | 31 39 2e 33 30 2e 37 30 |version |19.30.70|
|00000090| 2e 36 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |.6..;;; |bytecomp|
|000000a0| 20 76 65 72 73 69 6f 6e | 20 46 53 46 20 32 2e 31 | version| FSF 2.1|
|000000b0| 30 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |0.;;; op|timizati|
|000000c0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000d0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|000000e0| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|000000f0| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000100| 20 31 38 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 18...(i|f (and (|
|00000110| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000120| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000130| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000140| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000150| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n).. |
|00000160| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 31 39 |macs-ver|sion "19|
|00000180| 2e 32 39 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |.29"))).| (err|
|00000190| 6f 72 20 22 60 62 79 74 | 65 2d 72 75 6e 2e 65 6c |or "`byt|e-run.el|
|000001a0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|000001b0| 6f 72 20 45 6d 61 63 73 | 20 31 39 2e 32 39 20 6f |or Emacs| 19.29 o|
|000001c0| 72 20 6c 61 74 65 72 22 | 29 29 0a 0a 0a 28 62 79 |r later"|))...(by|
|000001d0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4d 88 c2 c0 c3 |te-code |"..M....|
|000001e0| c4 23 87 22 20 5b 69 6e | 6c 69 6e 65 20 70 72 6f |.#." [in|line pro|
|000001f0| 67 6e 20 70 75 74 20 6c | 69 73 70 2d 69 6e 64 65 |gn put l|isp-inde|
|00000200| 6e 74 2d 68 6f 6f 6b 20 | 30 5d 20 34 29 0a 23 40 |nt-hook |0] 4).#@|
|00000210| 37 30 20 44 65 66 69 6e | 65 20 61 6e 20 69 6e 6c |70 Defin|e an inl|
|00000220| 69 6e 65 20 66 75 6e 63 | 74 69 6f 6e 2e 20 20 54 |ine func|tion. T|
|00000230| 68 65 20 73 79 6e 74 61 | 78 20 69 73 20 6a 75 73 |he synta|x is jus|
|00000240| 74 20 6c 69 6b 65 20 74 | 68 61 74 20 6f 66 20 60 |t like t|hat of `|
|00000250| 64 65 66 75 6e 27 2e 1f | 0a 28 64 65 66 61 6c 69 |defun'..|.(defali|
|00000260| 61 73 20 27 64 65 66 73 | 75 62 73 74 20 27 28 6d |as 'defs|ubst '(m|
|00000270| 61 63 72 6f 20 2e 20 23 | 5b 28 6e 61 6d 65 20 61 |acro . #|[(name a|
|00000280| 72 67 6c 69 73 74 20 26 | 72 65 73 74 20 62 6f 64 |rglist &|rest bod|
|00000290| 79 29 20 22 08 c1 4e c2 | 3e 84 0d 00 c3 c4 08 5c |y) "..N.|>......\|
|000002a0| 22 88 c5 c6 08 0e 07 0e | 08 42 42 42 c9 ca cb 08 |".......|.BBB....|
|000002b0| 44 cc cd 46 44 45 87 22 | 20 5b 6e 61 6d 65 20 62 |D..FDE."| [name b|
|000002c0| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 20 28 6e |yte-opti|mizer (n|
|000002d0| 69 6c 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |il byte-|compile-|
|000002e0| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 20 65 |inline-e|xpand) e|
|000002f0| 72 72 6f 72 20 22 60 25 | 73 27 20 69 73 20 61 20 |rror "`%|s' is a |
|00000300| 70 72 69 6d 69 74 69 76 | 65 22 20 70 72 6f 67 31 |primitiv|e" prog1|
|00000310| 20 64 65 66 75 6e 20 61 | 72 67 6c 69 73 74 20 62 | defun a|rglist b|
|00000320| 6f 64 79 20 65 76 61 6c | 2d 61 6e 64 2d 63 6f 6d |ody eval|-and-com|
|00000330| 70 69 6c 65 20 70 75 74 | 20 71 75 6f 74 65 20 28 |pile put| quote (|
|00000340| 71 75 6f 74 65 20 62 79 | 74 65 2d 6f 70 74 69 6d |quote by|te-optim|
|00000350| 69 7a 65 72 29 20 28 71 | 75 6f 74 65 20 62 79 74 |izer) (q|uote byt|
|00000360| 65 2d 63 6f 6d 70 69 6c | 65 2d 69 6e 6c 69 6e 65 |e-compil|e-inline|
|00000370| 2d 65 78 70 61 6e 64 29 | 5d 20 37 20 28 23 24 20 |-expand)|] 7 (#$ |
|00000380| 2e 20 35 33 31 29 5d 29 | 29 0a 23 40 31 36 35 20 |. 531)])|).#@165 |
|00000390| 4d 61 6b 65 20 74 68 65 | 20 62 79 74 65 2d 63 6f |Make the| byte-co|
|000003a0| 6d 70 69 6c 65 72 20 77 | 61 72 6e 20 74 68 61 74 |mpiler w|arn that|
|000003b0| 20 46 55 4e 43 54 49 4f | 4e 20 69 73 20 6f 62 73 | FUNCTIO|N is obs|
|000003c0| 6f 6c 65 74 65 2e 0a 54 | 68 65 20 77 61 72 6e 69 |olete..T|he warni|
|000003d0| 6e 67 20 77 69 6c 6c 20 | 73 61 79 20 74 68 61 74 |ng will |say that|
|000003e0| 20 4e 45 57 20 73 68 6f | 75 6c 64 20 62 65 20 75 | NEW sho|uld be u|
|000003f0| 73 65 64 20 69 6e 73 74 | 65 61 64 2e 0a 49 66 20 |sed inst|ead..If |
|00000400| 4e 45 57 20 69 73 20 61 | 20 73 74 72 69 6e 67 2c |NEW is a| string,|
|00000410| 20 74 68 61 74 20 69 73 | 20 74 68 65 20 60 75 73 | that is| the `us|
|00000420| 65 20 69 6e 73 74 65 61 | 64 27 20 6d 65 73 73 61 |e instea|d' messa|
|00000430| 67 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ge...(de|falias '|
|00000440| 6d 61 6b 65 2d 6f 62 73 | 6f 6c 65 74 65 20 23 5b |make-obs|olete #[|
|00000450| 28 66 6e 20 6e 65 77 29 | 20 22 08 c1 4e 89 1a c3 |(fn new)| "..N...|
|00000460| 3d 83 13 00 08 c4 4e 0d | a0 88 82 21 00 c6 08 c4 |=.....N.|...!....|
|00000470| 0d 5c 6e 42 23 88 c6 08 | c1 c3 23 88 29 08 87 22 |.\nB#...|..#.).."|
|00000480| 20 5b 66 6e 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c | [fn byt|e-compil|
|00000490| 65 20 68 61 6e 64 6c 65 | 72 20 62 79 74 65 2d 63 |e handle|r byte-c|
|000004a0| 6f 6d 70 69 6c 65 2d 6f | 62 73 6f 6c 65 74 65 20 |ompile-o|bsolete |
|000004b0| 62 79 74 65 2d 6f 62 73 | 6f 6c 65 74 65 2d 69 6e |byte-obs|olete-in|
|000004c0| 66 6f 20 6e 65 77 20 70 | 75 74 5d 20 36 20 28 23 |fo new p|ut] 6 (#|
|000004d0| 24 20 2e 20 39 31 32 29 | 20 22 61 4d 61 6b 65 20 |$ . 912)| "aMake |
|000004e0| 66 75 6e 63 74 69 6f 6e | 20 6f 62 73 6f 6c 65 74 |function| obsolet|
|000004f0| 65 3a 20 5c 6e 78 4f 62 | 73 6f 6c 65 74 69 6f 6e |e: \nxOb|soletion|
|00000500| 20 72 65 70 6c 61 63 65 | 6d 65 6e 74 3a 20 22 5d | replace|ment: "]|
|00000510| 29 0a 23 40 31 34 39 20 | 4d 61 6b 65 20 74 68 65 |).#@149 |Make the|
|00000520| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 72 20 77 | byte-co|mpiler w|
|00000530| 61 72 6e 20 74 68 61 74 | 20 56 41 52 49 41 42 4c |arn that| VARIABL|
|00000540| 45 20 69 73 20 6f 62 73 | 6f 6c 65 74 65 2c 0a 61 |E is obs|olete,.a|
|00000550| 6e 64 20 4e 45 57 20 73 | 68 6f 75 6c 64 20 62 65 |nd NEW s|hould be|
|00000560| 20 75 73 65 64 20 69 6e | 73 74 65 61 64 2e 20 20 | used in|stead. |
|00000570| 49 66 20 4e 45 57 20 69 | 73 20 61 20 73 74 72 69 |If NEW i|s a stri|
|00000580| 6e 67 2c 20 74 68 65 6e | 20 74 68 61 74 20 69 73 |ng, then| that is|
|00000590| 20 74 68 65 0a 60 75 73 | 65 20 69 6e 73 74 65 61 | the.`us|e instea|
|000005a0| 64 27 20 6d 65 73 73 61 | 67 65 2e 1f 0a 28 64 65 |d' messa|ge...(de|
|000005b0| 66 61 6c 69 61 73 20 27 | 6d 61 6b 65 2d 6f 62 73 |falias '|make-obs|
|000005c0| 6f 6c 65 74 65 2d 76 61 | 72 69 61 62 6c 65 20 23 |olete-va|riable #|
|000005d0| 5b 28 76 61 72 20 6e 65 | 77 29 20 22 c0 09 c2 0b |[(var ne|w) "....|
|000005e0| 23 88 09 87 22 20 5b 70 | 75 74 20 76 61 72 20 62 |#..." [p|ut var b|
|000005f0| 79 74 65 2d 6f 62 73 6f | 6c 65 74 65 2d 76 61 72 |yte-obso|lete-var|
|00000600| 69 61 62 6c 65 20 6e 65 | 77 5d 20 34 20 28 23 24 |iable ne|w] 4 (#$|
|00000610| 20 2e 20 31 33 30 34 29 | 20 28 6c 69 73 74 20 28 | . 1304)| (list (|
|00000620| 6c 65 74 20 28 28 73 74 | 72 20 28 63 6f 6d 70 6c |let ((st|r (compl|
|00000630| 65 74 69 6e 67 2d 72 65 | 61 64 20 22 4d 61 6b 65 |eting-re|ad "Make|
|00000640| 20 76 61 72 69 61 62 6c | 65 20 6f 62 73 6f 6c 65 | variabl|e obsole|
|00000650| 74 65 3a 20 22 20 6f 62 | 61 72 72 61 79 20 28 71 |te: " ob|array (q|
|00000660| 75 6f 74 65 20 62 6f 75 | 6e 64 70 29 20 74 29 29 |uote bou|ndp) t))|
|00000670| 29 20 28 69 66 20 28 65 | 71 75 61 6c 20 73 74 72 |) (if (e|qual str|
|00000680| 20 22 22 29 20 28 65 72 | 72 6f 72 20 22 22 29 29 | "") (er|ror ""))|
|00000690| 20 28 69 6e 74 65 72 6e | 20 73 74 72 29 29 20 28 | (intern| str)) (|
|000006a0| 63 61 72 20 28 72 65 61 | 64 2d 66 72 6f 6d 2d 73 |car (rea|d-from-s|
|000006b0| 74 72 69 6e 67 20 28 72 | 65 61 64 2d 73 74 72 69 |tring (r|ead-stri|
|000006c0| 6e 67 20 22 4f 62 73 6f | 6c 65 74 69 6f 6e 20 72 |ng "Obso|letion r|
|000006d0| 65 70 6c 61 63 65 6d 65 | 6e 74 3a 20 22 29 29 29 |eplaceme|nt: ")))|
|000006e0| 29 5d 29 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |)]).(put| (quote |
|000006f0| 64 6f 6e 74 2d 63 6f 6d | 70 69 6c 65 29 20 28 71 |dont-com|pile) (q|
|00000700| 75 6f 74 65 20 6c 69 73 | 70 2d 69 6e 64 65 6e 74 |uote lis|p-indent|
|00000710| 2d 68 6f 6f 6b 29 20 30 | 29 0a 23 40 31 34 30 20 |-hook) 0|).#@140 |
|00000720| 4c 69 6b 65 20 60 70 72 | 6f 67 6e 27 2c 20 62 75 |Like `pr|ogn', bu|
|00000730| 74 20 74 68 65 20 62 6f | 64 79 20 61 6c 77 61 79 |t the bo|dy alway|
|00000740| 73 20 72 75 6e 73 20 69 | 6e 74 65 72 70 72 65 74 |s runs i|nterpret|
|00000750| 65 64 20 28 6e 6f 74 20 | 63 6f 6d 70 69 6c 65 64 |ed (not |compiled|
|00000760| 29 2e 0a 49 66 20 79 6f | 75 20 74 68 69 6e 6b 20 |)..If yo|u think |
|00000770| 79 6f 75 20 6e 65 65 64 | 20 74 68 69 73 2c 20 79 |you need| this, y|
|00000780| 6f 75 27 72 65 20 70 72 | 6f 62 61 62 6c 79 20 6d |ou're pr|obably m|
|00000790| 61 6b 69 6e 67 20 61 20 | 6d 69 73 74 61 6b 65 20 |aking a |mistake |
|000007a0| 73 6f 6d 65 77 68 65 72 | 65 2e 1f 0a 28 64 65 66 |somewher|e...(def|
|000007b0| 61 6c 69 61 73 20 27 64 | 6f 6e 74 2d 63 6f 6d 70 |alias 'd|ont-comp|
|000007c0| 69 6c 65 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |ile '(ma|cro . #[|
|000007d0| 28 26 72 65 73 74 20 62 | 6f 64 79 29 20 22 c0 c1 |(&rest b|ody) "..|
|000007e0| 5c 6e 41 83 0d 00 c3 5c | 6e 42 82 0f 00 5c 6e 40 |\nA....\|nB...\n@|
|000007f0| 44 44 87 22 20 5b 65 76 | 61 6c 20 71 75 6f 74 65 |DD." [ev|al quote|
|00000800| 20 62 6f 64 79 20 70 72 | 6f 67 6e 5d 20 34 20 28 | body pr|ogn] 4 (|
|00000810| 23 24 20 2e 20 31 38 32 | 34 29 5d 29 29 0a 28 70 |#$ . 182|4)])).(p|
|00000820| 75 74 20 28 71 75 6f 74 | 65 20 65 76 61 6c 2d 77 |ut (quot|e eval-w|
|00000830| 68 65 6e 2d 63 6f 6d 70 | 69 6c 65 29 20 28 71 75 |hen-comp|ile) (qu|
|00000840| 6f 74 65 20 6c 69 73 70 | 2d 69 6e 64 65 6e 74 2d |ote lisp|-indent-|
|00000850| 68 6f 6f 6b 29 20 30 29 | 0a 23 40 31 32 34 20 4c |hook) 0)|.#@124 L|
|00000860| 69 6b 65 20 60 70 72 6f | 67 6e 27 2c 20 62 75 74 |ike `pro|gn', but|
|00000870| 20 65 76 61 6c 75 61 74 | 65 73 20 74 68 65 20 62 | evaluat|es the b|
|00000880| 6f 64 79 20 61 74 20 63 | 6f 6d 70 69 6c 65 20 74 |ody at c|ompile t|
|00000890| 69 6d 65 2e 0a 54 68 65 | 20 72 65 73 75 6c 74 20 |ime..The| result |
|000008a0| 6f 66 20 74 68 65 20 62 | 6f 64 79 20 61 70 70 65 |of the b|ody appe|
|000008b0| 61 72 73 20 74 6f 20 74 | 68 65 20 63 6f 6d 70 69 |ars to t|he compi|
|000008c0| 6c 65 72 20 61 73 20 61 | 20 71 75 6f 74 65 64 20 |ler as a| quoted |
|000008d0| 63 6f 6e 73 74 61 6e 74 | 2e 1f 0a 28 64 65 66 61 |constant|...(defa|
|000008e0| 6c 69 61 73 20 27 65 76 | 61 6c 2d 77 68 65 6e 2d |lias 'ev|al-when-|
|000008f0| 63 6f 6d 70 69 6c 65 20 | 27 28 6d 61 63 72 6f 20 |compile |'(macro |
|00000900| 2e 20 23 5b 28 26 72 65 | 73 74 20 62 6f 64 79 29 |. #[(&re|st body)|
|00000910| 20 22 c0 09 42 87 22 20 | 5b 70 72 6f 67 6e 20 62 | "..B." |[progn b|
|00000920| 6f 64 79 5d 20 32 20 28 | 23 24 20 2e 20 32 31 34 |ody] 2 (|#$ . 214|
|00000930| 33 29 5d 29 29 0a 28 70 | 75 74 20 28 71 75 6f 74 |3)])).(p|ut (quot|
|00000940| 65 20 65 76 61 6c 2d 61 | 6e 64 2d 63 6f 6d 70 69 |e eval-a|nd-compi|
|00000950| 6c 65 29 20 28 71 75 6f | 74 65 20 6c 69 73 70 2d |le) (quo|te lisp-|
|00000960| 69 6e 64 65 6e 74 2d 68 | 6f 6f 6b 29 20 30 29 0a |indent-h|ook) 0).|
|00000970| 23 40 37 32 20 4c 69 6b | 65 20 60 70 72 6f 67 6e |#@72 Lik|e `progn|
|00000980| 27 2c 20 62 75 74 20 65 | 76 61 6c 75 61 74 65 73 |', but e|valuates|
|00000990| 20 74 68 65 20 62 6f 64 | 79 20 61 74 20 63 6f 6d | the bod|y at com|
|000009a0| 70 69 6c 65 20 74 69 6d | 65 20 61 6e 64 20 61 74 |pile tim|e and at|
|000009b0| 20 6c 6f 61 64 20 74 69 | 6d 65 2e 1f 0a 28 64 65 | load ti|me...(de|
|000009c0| 66 61 6c 69 61 73 20 27 | 65 76 61 6c 2d 61 6e 64 |falias '|eval-and|
|000009d0| 2d 63 6f 6d 70 69 6c 65 | 20 27 28 6d 61 63 72 6f |-compile| '(macro|
|000009e0| 20 2e 20 23 5b 28 26 72 | 65 73 74 20 62 6f 64 79 | . #[(&r|est body|
|000009f0| 29 20 22 c0 09 42 87 22 | 20 5b 70 72 6f 67 6e 20 |) "..B."| [progn |
|00000a00| 62 6f 64 79 5d 20 32 20 | 28 23 24 20 2e 20 32 34 |body] 2 |(#$ . 24|
|00000a10| 32 31 29 5d 29 29 0a | |21)])). | |
+--------+-------------------------+-------------------------+--------+--------+
